home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
comspeed.arc
/
BASPEED.BAS
next >
Wrap
BASIC Source File
|
1991-05-28
|
2KB
|
57 lines
' -----------------------------------------------------------------------
' The speed is going to be different from executible file because of the
' difference in speed. This program is runing slower in QBasic
' than in EXE format
' ------------------------------------------------------------------------
CLS : DIM a(200): One = 133: Two = 265.5: Three = 399: Four = 532
Five = 665: Six = 798: Seven = 931: Eight = 1064: Ten = 1330
Eleven = 1463: Twel = 1596: Thir = 1729: Fourt = 1862: Fifteen = 1995
Sixteen = 2124: N32 = 4248: Eighteen = 2394
5 a$ = TIME$
10 I$ = INKEY$: IF TIME$ <> a$ THEN 20 ELSE 10
20 a$ = TIME$
30 IF TIME$ <> a$ THEN : ELSE a = a + 1: GOTO 30
40 Co = Co + 1: IF Co = 4 THEN GOSUB 100: GOSUB 200: ELSE GOSUB 100: GOTO 5
45 PRINT B
50 GOTO Comp
60 RUN
100 a(Co) = a: PRINT a(Co): a = 0
150 RETURN
200 FOR z = 1 TO Co
210 B = B + a(z)
220 NEXT
230 B = B / Co
240 RETURN
250 PRINT "The speed of your computer is "; Cop: END
260 IF ERL = 4 THEN CLOSE : RESUME 280
270 PRINT "ERROR": BEEP: END
280 GOTO 5
'******** Compearing Speed ********
Comp:
IF B < Two AND B > One - 50 THEN Cop = 1
IF B < Three AND B > Two - 50 THEN Cop = 2
IF B < Four AND B > Three - 50 THEN Cop = 3
IF B < Five AND B > Four - 50 THEN Cop = 4
IF B < Six AND B > Five - 50 THEN Cop = 5
IF B < Seven AND B > Six - 50 THEN Cop = 6
IF B < Eight AND B > Seven - 50 THEN Cop = 7
IF B > Seven AND B < Eight THEN Cop = 8
IF B > Eight AND B < Ten THEN Cop = 9
IF B < Eleven AND B > Ten - 50 THEN Cop = 10
IF B < Twel AND B > Eleven - 50 THEN Cop = 11
IF B < Thir AND B > Twel - 50 THEN Cop = 12
IF B < Fourt AND B > Thir - 50 THEN Cop = 13
IF B < Fifteen AND B > Fourt - 50 THEN Cop = 14
IF B < Sixteen AND B > Fifteen - 50 THEN Cop = 15
IF B < Eighteen AND B > Sixteen - 40 THEN Cop = 16
IF B < N32 AND B > Eighteen - 50 THEN Cop = 18
IF B < 4400 AND B > 4000 THEN Cop = 32
IF B > 4500 THEN Cop = 100
'************ Final Result **********
480 IF Cop = 100 THEN PRINT "Speed Is Greater Than 32": END
490 PRINT "The Speed is About "; Cop